VERSION 5.00
Begin VB.Form ShuZhiYunSuan 
   Caption         =   "Form1"
   ClientHeight    =   3030
   ClientLeft      =   11685
   ClientTop       =   6135
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   ScaleHeight     =   3030
   ScaleWidth      =   4560
   Begin VB.Label labResult 
      Height          =   2655
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   3975
   End
End
Attribute VB_Name = "ShuZhiYunSuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim result As Variant
Dim ia, ib As Integer
ia = 2
ib = 3
ic = 11
Dim da, db As Double
Dim ba, bb, bc, bd As Boolean
ba = True
bb = False
bc = False
bd = True
Dim sa, sb As String
sa = "2"
sb = 3

'result = ia ^ ib + ba
'result = -ia ^ ia * ia * ib
'result = ic / ia ^ ia
'result = ic \ ib ^ ia
'result = ic Mod ia + ib
'result = ia - ia * ib
'result = (ia - ia) * ib ^ 2
'result = ia - (ia * ib) ^ 2
'result = ia * ia - ib ^ 2
'result = ia * ba - ib ^ 2
'result = ia * sa - ib ^ 2
'result = ia * (sa - ib) ^ 2
'result = sa + sb * ib * (Not (bc) And Not (bd))
'result = ic \ ib ^ ia + sb & ib
result = (sa + sb) * ib & ia * sa - ib ^ 2
'result = (Not (bc) <> Not (bd)) + ic Mod ia + ib
'result = -ia ^ ia * ia * ib * (Not (bc) Or Not (bd))
'result = ia * (sa - ib) ^ 2 > ia * sa - ib ^ 2
'result = (ia + ib) * ib ^ 2 > ia - (ia * ib) ^ 2
'result = ia ^ ib + ba < (-ia) ^ ia * ia * ib
'result = ba < bb
'result = ia < "A1"
'result = ib > sa
'result = (sa + sb) * ia > ib ^ ib
'result = Not ((sa + sb) * ia) > Not (ib ^ ib)
'bc = (sa + sb) * ia
'bc = ia > ib
'result = Not bc
'result = Not (bc) <> Not (bd)
'result = Not (bc) And Not (bd)
'result = Not (bc) Or Not (bd)

labResult.Caption = result

End Sub
